home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
f
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
2KB
|
67 lines
1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT:GOTO28
2 DATA46,70,73,71
3 X3=X2+X1:Y3=Y2+Y1:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
4 A=USR(64),X3,Y3:RETURN
5 X3=X1+Y2:Y3=Y1-X2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
6 A=USR(64),X3,Y3:RETURN
7 X3=X1-X2:Y3=Y1-Y2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
8 A=USR(64),X3,Y3:RETURN
9 X3=X1-Y2:Y3=Y1+X2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
10 A=USR(64),X3,Y3:RETURN
11 X=X+USR(121):Y=Y-USR(122)
12 IFX>331THENX=12
13 IFX<12THENX=331
14 IFY>239THENY=40
15 IFY<40THENY=239
16 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
17 OPEN15,D0,15,"I0"
18 CLOSE15:RETURN
19 A=USR(117):IFA<>16THENRETURN
20 X1=X-12:Y1=Y-40:A=USR(34),X,Y,1:A=USR(32),1
21 A=USR(117):IFA<>0THEN21
22 GOSUB11:A=USR(117):IFA<>16THEN22
23 X2=X-12:Y2=Y-40:A=USR(34),X,Y,2:A=USR(32),2
24 A=USR(117):IFA<>0THEN24
25 IFY1>Y2THENX3=X2:X2=X1:X1=X3:Y3=Y2:Y2=Y1:Y1=Y3
26 A=USR(33),0:A=USR(33),1:A=USR(33),2
27 FORB=Y1TOY2:A=USR(67),X1,B,X2,B:NEXT:A=USR(32),0:RETURN
28 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
29 A=USR(21):A=USR(17):A=USR(19):A=USR(1)
30 GOSUB17:PRINTCHR$(14)"[147][198]ILE DISK IS IN DRIVE: ";D1;
31 GETA$:IFA$=""THEN31
32 IF(D1=8)AND(A$="9")THEND1=9:POKE36863,D1
33 IF(D1=9)AND(A$="8")THEND1=8:POKE36863,D1
34 PRINT"[157][157]";D1
35 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):GOSUB17
36 R=1:T=18:A=USR(39),0,18:A=USR(32),0
37 GOSUB19:GOSUB11:GETA$:IFA$=""THEN37
38 IFA$=" "THEN48
39 IFA$="\"THENR=R+1:T=T+1:IFR=5THENR=1:T=18
40 IFA$="\"THENA=USR(39),0,T:GOTO37
41 IFA$=""THENSYS36885:GOTO37
42 IFA$=CHR$(13)THEN55
43 IFA$="!"THENSYS36867:GOTO37
44 IFA$="$"ORA$=CHR$(34)THEN37
45 IFA$="*"THEN28
46 OPEN15,D1,15,"I0":POKE828,ASC(A$):POKE40448,255:SYS36903
47 INPUT#15,E:IFE<>0THENPRINT#15,"I0":CLOSE15:GOTO37
48 CLOSE15:SYS36864:X1=X-12:Y1=Y-40:D=0:FR=40448
49 X2=PEEK(FR+D):Y2=PEEK(FR+D+1)
50 IF(X2>254)OR(Y2>254)THEN37
51 IFX2>127THENX2=-(X2AND127)
52 IFY2>127THENY2=-(Y2AND127)
53 ONRGOSUB3,5,7,9
54 D=D+2:GOTO49
55 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
56 A=USR(1):A=USR(17):A=USR(19):A=USR(21):GOSUB17
57 PRINT"[147]"CHR$(14);:IFD0=D1THENPRINT"[201]NSERT [208]ROGRAM DISK AND"
58 PRINT"[208]RESS A KEY."
59 GETA$:IFA$=""THEN59
60 OPEN15,D0,15,"I0"
61 OPEN2,D0,2,"CMND,P,R"
62 CLOSE2:GET#15,E
63 CLOSE15
64 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO59
65 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(39),0,16:GOSUB17
66 LOAD"CMND",D0